home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / Bag.p < prev    next >
Text File  |  2000-04-24  |  2KB  |  50 lines
  1. pTempVar <- <primitive 110 8 >
  2. <primitive 112 pTempVar 1  " next " \
  3.   #( #[ 16r11 16rA2 16rF7 16r1B 16r11 16r50 16rCC 16rF7 16r09 16r11 16r51 \
  4.         16rC1 16r61 16r10 16rAB 16rF3 16rF8 16r0A 16rF2 16r10 16rA7 \
  5.         16rF1 16r61 16rA1 16rF7 16r02 16r5D 16rF3 16rF2 16rF9 16r1F \
  6.         16rF2 16r5D 16rF3 16rF5] \
  7.     #(  )) >
  8.  
  9. <primitive 112 pTempVar 2  " first " \
  10.   #( #[ 16r10 16rA6 16rF1 16r61 16rA1 16rF7 16r02 16r5D 16rF3 16rF2 16r11 \
  11.         16r51 16rC1 16r61 16r10 16rAB 16rF3 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 3  " occurrencesOf: " \
  15.   #( #[ 16r10 16r21 16rE0 16r02 16r50 16rF3 16rD5 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 4  " size " \
  19.   #( #[ 16r10 16r50 16rE2 16r01 16r04 16r21 16r22 16rC0 16rF3 16rD7 16rF3 \
  20.         16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 5  " remove:ifAbsent: " \
  24.   #( #[ 16r10 16r21 16rE0 16r03 16r22 16rA5 16rF4 16rD5 16r73 16r51 16r23 \
  25.         16rC9 16rF7 16r06 16r10 16r21 16r0B 16r28 16rF8 16r07 16rF2 \
  26.         16r10 16r21 16r23 16r51 16rC1 16rD0 16rF2 16rF5] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 6  " add:withOccurrences: " \
  30.   #( #[ 16r22 16rE0 16r04 16r20 16r21 16rBD 16rF3 16rB7 16rF2 16r21 16rF3 \
  31.         16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 7  " add: " \
  35.   #( #[ 16r10 16r21 16r51 16r10 16r21 16rE0 16r02 16r50 16rF3 16rD5 16rC0 \
  36.         16rD0 16rF2 16rF5] \
  37.     #(  )) >
  38.  
  39. <primitive 112 pTempVar 8  " new " \
  40.   #( #[ 16r05 16r28 16rA0 16r60 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 98 #Bag \
  44.   <primitive 97 #Bag #Collection #AmigaTalk:General/Bag.st \
  45.    #(  #dict #count ) \
  46.    #( #next #first #occurrencesOf: #size #remove:ifAbsent: #add:withOccurrences:  \
  47.        #add: #new  ) \
  48.   pTempVar 4 8 >>
  49.  
  50.